home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / rexx / PGPwithYAM.lha / ReadMail.rexx < prev    next >
OS/2 REXX Batch file  |  1997-07-02  |  561b  |  32 lines
  1. /* Read a mail with Phil's PGP for YAM
  2.  * $VER: ReadMail.rexx 1.2 (02-Jul-97) by Michael Praschl
  3.  */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. pgppath = 'PGP:bin/pgp'
  8. pgpcommand = '-m'
  9.  
  10. CALL CLOSE 'STDOUT'
  11. CALL CLOSE 'STDIN'
  12. CALL OPEN 'STDIN','CON:0/14/1000/200/YAM-REXX/CLOSE'
  13. CALL PRAGMA '*','STDIN'
  14. CALL OPEN 'STDOUT','*'
  15.  
  16. IF ~SHOW('Ports','YAM') THEN DO
  17.   ADDRESS 'COMMAND'
  18.   'Run YAM:YAM NOCHECK HIDE'
  19.   'SYS:RexxC/WaitForPort YAM'
  20. END
  21. IF SHOW('Ports','YAM') THEN DO
  22.   ADDRESS 'YAM'
  23.   GETMAILINFO FILE
  24.   mailfile = RESULT
  25.  
  26.   ADDRESS 'COMMAND'
  27.  
  28.   pgppath pgpcommand mailfile
  29.  
  30. END
  31.  
  32.